LA8FL 0000OOOOOpRIim;KOOl/5(W9CC LX Ufl JEC 1 /rtEAD J F ILE SGURCEF I IE = S Y MBUL./RU7 0; END«-000000 



OBJECT /READ 






'9 
1C 
11 
12 

is 

14 
15 
16 
17 
18 
19 
(20 
21 
22 
23 
24 
26 
| 26 
27 
28 
| 29 
30 
31 
| 32 
33 
34 
I 35 
X 

37 ~ 
) 36 
39 
4b 
I 41 
42 
43 
I 44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
P 




6TZ> 



< 



7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17* 

18 

19 

20 I 

21 

22 

23 I 

24 

25 

26 *l 

27 

— I 

28 
29 1 

30 
31 
32 ' 

33 
34 
35 i 

36 

37 
38 i 

39 

40 

4,< 

42 

43 

44 * 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 



a 



r~ 



S RESET SINGLE 



S- 

fi 

I? 

,3 

u 

5 
6 
7 

a 

9 
10 
V, 
13 
U 
ul 

1t> 
17 

lis 

19 
10 
21 
B2 
23 
24 
35 
36 
27 
28 
29 
30 
31 
32 
33 



34 

36 

36 

37 ~ 

38 

39 

40 

41 

42 

43 



4« 
47 
48 
49 
50 



52 
53 
54 

55 
56 
S7 



COMMENT! 



ROTO/HOOTER 
QJUJ ULLZJL . 



TITLE! B5500/B5700 MARK XV. 1 SYSTEM RELEASE * 

FILE ID! SYMBOL/ROTO TAPE ID! SYMBOLIZE ILEOOO * 

THIS MATERIAL IS PROPRIETARY TU H URRUUGHS CORPORA TION _*_ 



* 



AND IS NOT TO HE REPRODUCED* USED, QH DISCLOSED 
EXCEPT IN ACCORDANCE WITH PROGRAM LICENSE OR UPON 
. J1B-LLIE N AUTHORIZATION OF THE PATENT Ul VTSltlk OF 
BURROUGHS CORPORATION* DETROIT* MICHIGAN 48232 

COPYRIGH T (C) 1973, BURROUGHS cnRPnHATTr.M 



000U001C 
0OUQO1OO 

00000120 
00000121 
QQ00.ai22.. 



* 



COMMENT 

THIS PROGRAM CLEANS OUT THE StPUC TAnKS CREATED BY 
P T 1 N_ I N THE MCP-S. THE SEPTIC TANK Is WRIT T t N I N 



J_ 



00000123 
00000124 

J100.Q.Q..1.25. 
00000126 
00000127 

-Qm OQ l2fi. 



THE SEPTICTANK 
60 WORD BLOCKS * 



OlOOOOOO 
01001000 

-QlOQgQQfl.. 



WITH EACH BLOCK CONTAINING A VAKlABLE NUMBER OF ENTRIES WHICH ARE 

FROM 2 TO 16 WORDS IN LENGTH. SlNCE ENTRIES DO NOT CROSS BLOCKS* 

IKE END .OF y_ALiB INFORMATION IN A BLOCK I S MARKED BY AN ENTRY WIT H 

A BLANK IN THE FIRST CHARACTER POSITION. THE FqRMAT OF AN ENTRY IS*OlOO6O00 



01003000 
01004000 
01005000 



WORD I 31.fi * ENTRf TYPE* 



= PASSIVE INTERROGATE/ 

1 * ACTIVE INTERROGATE* 

2 * WRITE* 



9!9 
2 1 ! 1 2 
33H5 
1216 



3 = READ* 

4 = INTERRUP1 , 

.IU/BU.F/. _ 

ERROR BITS FROM RESULT DESCRIPTOR. 

NUMBER 0F WORD* Df TEXT IN THIS ENTRY, 
LIN E STATUS (TSSMCP ONLY). 



WORD. 2 

18130 s time of entry in 60"Ths of a second, 

WORDS 3-N a TEXT* AS INDICATED IN THE 33« 15 FIELD OF WQRD 



THE LAST ENTRY 

THE FIRST WORD 

_A§_ FOLLOW Si 



IN THE FILE HAS ZERO In THE 3H5 FIELD OF WQRD i. 
IN THE FILE IS USED TO INDICATE THE TYPE OF FILE* 



010U7000 

.aifi.iiaa.Da. 

01009000 

oioioooo 

-0lO.ilO_QQ. 
0101200C 
01013000 
jQ-lfil A.Q.Q..Q 
01015000 
01016000 
01017000 
01018000 
01019000 

JLLQIPJIPJL 





1 

2 
_ 



MCP 
TSSMCP 
MCP 



FILE WHICH 



HAS 



NOT 



WRmPPED around. 



FILE WHICH HAS rtrtAPPEU AROUND 



TSSMCP m i. « 

PROGRAM* SIMPLY EXECUTE 



01021000 
01022000 

_Q.i01iQQ..Q ... 
01024000 
01025000 
01026000 



TIME QF 
SECOND NAME OF 
A COMMON VALUE 



_ I] U SING 
THE SEPTIC 



01027000 

01028000 

A C OMMON VALUE EOpAL TO 01029Q0Q 

ANALYSED* I.E. OlOJOOOO" 

EXAMPLE* IF THE 01031000 

_ _____ BE USED. ALTER - 103 2000 

NATIVELY* THE PROGRAM MAY BE RUN WITHOUT SETTING COMMON. IN THAT 0103360? 

CASE* IT WILL ASK AT THE SPO FOR THE NaME OF THE SEPTIc FILE AND 01034000 

. F QR THE TIME AT WHICH AMALVSlS IS TO BEGIN. EITHER OR BOTH OF THEM 01035O0Q 



TOjjSE THE 

THAT~oT~THE CREATION 
EQUAL TO THE 4 1 G I T 
FILE IS SEPTIC/1234* 



FILE TO BE 
TnE FlLt. FOR 
OF 12 34 SHOULD 



MAY BE SPECIFIEO. 

T.HE MEMORY PUMP A NALYZERS HAVE d_Ej__ MUQIF IF D TO PRINT THE CORF 
PORTION OF THE ARRAY 
TRACKING INFORMATION 



01036000 
01037000 

Q. Q38 . 00 



(CALLED THE "ARGH" ARRAY) WHICH CONTAINS THE 01039000 
BEFORE IT IS WRITTEN INTO THE SEPTIC TANK, Q104Q000 
Jl **** ******** ******* ************* ********* 

01042000 
BEGIN 

REAL I t % FILE MUMBFR IS PUT IN I VIA COMMON. 



real b*type*startime; 

BOOLEAN TSSMCP*wRAPAROUNDi 

ARRAY lNTSPr0l59 3.LINg-[0M43*NAML0!43*Cr.[Q13J*LSTATrQ164]; 



10000000 
11 U0 Q00Q 



11001000 
11500000 
12P00QQ0 



3 



7 
8 
9 
10 



• • 



r~ 



!■:[ 

I 4 
6 

|6_ 
V 
.1 
9 

|iO, 
[11 
12 

r 3 

14 
15 
16 

17 
18 

19 

I 
20 

121 

22 

23 

S-4 

25 

26 

21 _ 
28 

29 

JO 

31 ~ 
32 
|.M 
|S4 
35 
36 

37 ~ 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
M 
55 
56 
57 



LABEL WRAP, RE 
FILE SEPTIC D 
FILE. P 18X2x1 
FORMAT 
DEFINE 



ADNExT'LO 

ISK seria 

511 



op*dataend/lof,euj; 

L "SEPTIC" "TANK" ( 2* t>0, MYU St> 1 NPUT ) ; 



DEFINE 



TANKEN 
BUMPI 
TMCP 

DCMCP 
FILLLS 

F1LL__L 



DC/,"*** 
« t UsI + t 
a REALCTS 



END OF TANK"); 
SMCP)#> 



= (NOT TSSmCP)#; 
TAT = 



HTH 



WRITING •» 
POLLING " 
SE LECTIN" 



* LINE STATUSES FOR TIMESHARING. 



ACKING " 
MAKING " 
ACKIISG-F.. 



NAKING-E" 
WRITE-RE" 
1SILE !!. 



IDLE-POL" 
WAITING " 
WAUING-^. 






_ _ _0 


'NORMAL " 
•FJRSI-Ii.". 
•SELECT-A" 
•ENQ-READ" 
'BRJJK£N » 
"POLL-TIM" 
•TIMED-DU" 
'EOT-READ" 



READ-REA" 
MESSAGE--* 






"DISCONNE" 
'INVALID " 



"G 



!____&_ 



"NG " 

"ADY-BUSY" 



"LING 

"EN3 



"ME 
"NSwER 



"E-our 

"T 



"DY-ABN 
"ANSWER 



"CT 
"TO/BUFF 



»#J 



PROCEDURE TIM(A,CC); VALUE A* HtA L A/ ANRAY CC_0-> 

iE_GIN INTEGE R I»JJ 

X 

STREAM PR0CEDURE FFCA^B); 

BEGIN SIi*A; 0I?=8j DI 1*01 + 3; 



13000000 
14000000 

jLiLOJDLtixaa- 

14500000 
15000000 
A5QQQAQ.Q. 
15001000 
15900000 
1.5.^0.1000 
15V02000 
159030G0 

..15.VM0Q.G_ 
15905000 
15906000 

15.Vi.IjQ.0Q 

15908000 

15909000 

.139100.0.0. 

15911000 
15912000 

.159.L3.O.Q0 
15914000 
15915000 

..15.916.a2fi 

15917000 
15918000 
139.19Q.Q_Q. 
15920000 
15921000 

.15922Q.OQ... 
15923000 
159_:40Q0 
15925000 
15926000 
159<!7000 
15.9.28000... 
15929000 
1593000C 

l_.iU.Lfl.fliL 
15932000 
15933000 
15934000 



4(ds»=2 dec; ds:=lit"s"); 

DI»=DI-i; DS*=LIT" "> 
-__J_JQ_F____L ^ 



20000000 
20001000 
20002000 
"21000000 
21001000 
21002000 



21003000 
21004000 
21 0Q 5£Q_Q. 



AJBA,Cl8J3ej; 

FOR it 883 STEP "1 UNTIL DO 



BEGIN CC.nisJ.s A MOD 60/ 

AJ»A DIV 60; 

end; 



29000000 
29001000 
29002000 



FF(CC#LlNEC83)i 
END tim; 



29003000 
29004000 
29005000 



29006000 
29007000 
30000000 



ft 

2< 
3 
4 
I 

6 
7 



ROCEDURE 
EGIN 



INITIALIZER- 



PRO 
BEG 



* 

% 



% 

% 



CEDURE GETINFO; 

IN ARRA¥ AC0I9]; 

. FILE SPG 11(1,10) ; 



FORMAT FIC'ENTER FILE NAME")* 
F2CENTER START TIME")/ 



30001000 
30002000 

i.i.y_j_oooo. 

31001000 

31002000 

.31003000. 



STREAM PROCEDURE GETNaM(A»B); 
BEGIN LABEL L; 

local x; 



31004000 

31005000 

.31100-00.0- 



Lt 



su = a; 

2( 

_ IF S_ = " " THEN BEGIN SJ : =S I + 1 ; GO TO J__E N QJ 
" IF SC» M «- W THEN JUMP OUT*" 

DI««LOC X> DS*=8 LIT M "; DI*"DI-7J 
7(IF SQs ALPH A THEN DS isCHH ELSE JUMP QUT)J 

di *=e; a s=sx; sh=loc x; dsjswqs; 
b:=di; si'.sa; 

iE.._Ji£.=-ALi , HJL..XHtIl-.-£L.a£ _ _ 



31101000 
31102000 
31103000 



31104000 
31105000 
31106000 



31107000 
31106000 
3110900 



IF SC SM <-" THEN JUMP OUT ELSE SpsSl + U 



); 



LhQl 



STREAM PRUCEOURE GETIML(A,B); 
BLGlR_.LAB.£i.-J.l.tL21 .._ ..__ 

si?=a; oissb; 

4C 
_ _l_l_ L_ IF S Cs w " THEN B E GIN Si n Si + _ t_ 

IF Sc="»" 

IF SC LSS 

IF SC GTR 



JaO_IOJLi_ENOJL 



THEN BEGIN Sp=Sl + W 

"0" then jump our; 

"9" THEN JUMP (JUT* 



3U1U000 
31111000 

..34102000 

31113000 
31114000 

-3X115000 
31200000 
31201000 

.112020.00. 
31203000 
31204000 

..3_l2050_0_Ci 



GO TO Ll END. 



31206000 
31207000 
3 1 20600 



sijssi+i; 

IF SC LSS 

.if__s_c.-iXfl. 






THEN 
J1HOL 



GO TO L2J 



L2! 



BEGIN 8l:*SI-li 
BEGIN SI s =SI- 1 > 



DS8S2 OCT ENQ 
OS:sOCT END* 



ELSE 



end; 



GET LA BEL EQUATION F0» SEPTIC 



31209000 
31210000 
.112.1,1.000 
31212000 
31213000 
31214000 
31215000 
31900000 
_2iJ>__l___L__ 



WRITECSPO'Fl ); 
READ(S P 0,10>A[*]); 



CCC03«*CCCU«*-li 

GETNAM(A#CC); 

IF CC. 0.*-1 THEN 



31902000 
31903000 
, 31^04000 ... 



IF CCCU = -1 THEN SEPTIC. FlDS=CCtO] ELSE 
BEGIN SEPTIC. MFID:=CC[0]; 

SEPTIC. FIDisCCtU; 



31905000 

31906000 

.H9.Q_Z.0OO 



end; 

SET STARTING TIME, 



31906000 
31909000 
319100Q0 



319UOQ0 
31912000 
3 19*3000 



write(sp0#f2); 
readcspoiojAc*]); 



CCCOJl»CCCl_i*CCC23»«5C£33laO; 

getime(a*co; 

STARTIMEt»CCC3 3»60x(CCt2 3*60y(CCClJ»60xCCt0 3))J 



31914000 
31915000 
31 ^ 16 00 



31917000 
31918000 
31919Q0Q 



• • 



t 

3 

- 
4 

5l 

6 

7 

a 

9 

,o" 

11 

12 
13 
14 
IS 
16 
17 
IB 
19 
20 
21 
22 
23 
24 
25 
26 
27 

28 ~ 
29 
30 
31 
32 
33 
34 



37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
SI 
52 
53 
54 



55 
56 



END GETTING FILE AND START TIME WHtN NOT GIVEN THRU COMMON; 
REAL. STR EAM PROCEDURE FH(A) J 



BEGIN 51. sA 
DSI»LI 

em; __ ___ 

STREAM PROC 
BEGIN DH=A 



; ou*loc fr; 

T"0"; D8««« UECi 0S:»3 LIT" w ; 



31920000 

32000000 
jj_001000 
32002000 
32003000 
IZQhAQQQ. 



"PASS 

END init; 



EDURE IMTCA); 
; DS:= H LIT 



INTACT. INTWRITE READ 



INTERUPT«i 



REAL X; 
FORMAT HDR( 



X_0»" 
XZQlA 



SEPTIC 



Tank a 



naLysi 



S Of " 



RAPTC 

HDR 2( 



//X23 
/X26, 
/ //Xl 



» W S£PTI 
"WRAPAR 
0#"ABN 



C FILE 
QUNQ H 
• D25 



CREAT 
AS OCC 
(A9 N0R 



EO ON 
URREU. 



»Ai»A6*"/ ,, *Al#A6// 

"»A6#" f H )* 

w ). 

X_l5__ 






"HR 
XlO'" 



- D21 ( 

RR = 
l'3Fl -_ 



WRITE 
24 (RE 
P 2 3 ( B 



READY) 
AO REA 
OFFER 



D Y ) " ' X 
FINAL,.. 



13>"8SY = D20 (BUS 
L0£AJm H) w ^X 24 



"NTR 
/X10» 

~»N0,T.E. 



a 018 C 
"IDL B 
i _B.SJL.Jl 



UCTU N 
025-0] 
ND Nlfi 



OT REA 

6*0 

-S-ADA 



DY)"* 
CIOLE) 
PIE R / 



M #//X10# 

iXii -Nai READY " ///) 



33000000 
33001000 
JiQOgQQJl. 
33003000 

33004000 
3.000000 

34001000 
34100000 

_. aAUiiaaa 

34102000 
34110000 

14U_-_3.____ 

34121000 

Y)", 34122000 

3_4J.2J.QQQ. 

34124000 
34125000 

J_- 3-U__.6Q.0-0 



INIT(NAM); 

IF- I Ufl-fl 

READ(SEPTIC 
IF TSSMCPJ* 
T1__U_LME(1) 



T_ti-EW-GJ_J-LKf.a-tLJ-J-. 

#60#iNrsp[*i); 

BOOLEANCINTSPCO]) 

« ecu 



SEPU-C-.. tXUJLHXJLUJj 

THEN FILLLSTAT; 



-XN..D.. 



WRITECP'HDR 
TIMEC 

XCXQ1 

IF WRAPAROU 
WRITECP#HDR 

.OF_.JMlA__t___ 



*(XJs SEPTIC. MF 10). [6*63#X,CXS = 
6)*(XxaTlMEC5)).tl2U23,X.C24: 

,rt:[ii,f:f:r?],TF tssmcp thfn "t 



39000000 
39001000 

.3-90-02000.. 
39003000 
39004000 

-3-9-0-05.013.0. 



SEPTIC. FID). C6I63* 
12 ]»X, (3.61X23* 

SSMCP" FI.SF " DCMr 



NOJ»BOQLEAN(INTSPCO].C46J13 ) THEN WRITEC P# RAPT ) ; 

2)i 

TION PRO CEDURES ; 



X* 39006000 
39007000 

P- , iii.390oao-ia-. 



PROCEDU 

.J_JE_iU_..J_. 
X 

ST 
BE 



EN 



RE MMM(B); VALUE B; RtAL 1} 
_A___C___i 



ream procedure mqveca>b)i 
gi n s i»*a; oi»«b; 



8CIF TOGGLE THEN QSi»_lT " " ELSE 

IF SC = M «-" THEN DSJsCHH ELSE DS:=ChR); 

D move; 



39009000 
39010000 
J-9.01i.Qii.Q_ 
40000000 
40001000 

_£____]______. 

41000000 
41001000 
41002000 



41003000 
41004000 
41005000 



DO 

BEGI N X»aMIN(BM4); 



EN 



FOR C*=C STEP 1 UNTIL X-i 
WRITEC P.X.LI'MEC* I)/ 
D UNTIL (BI"B-14) LEQ 0* 



49000000 
49001000 
49002000 



00 MGVEClNTSPtBUMPl3*LINECCJ); 



eno mmm; 

stream procedure fllc a* b> c» 0' e'f*g»h3 ; value b» c* 0* e*f> g; 



49003000 
49004000 
49005000 



BEGIN LABEL UP l*UP2'ExI Ji 

pi»-h; ^(DSiaaLiT" ••); du s h; 
DStswps; cjtsci+Fj go to exit; 



49006000 
50OO0QO0 

50001000 



S I 1 a Aj 



50002000 
50003000 
50004000 



sn«LOc b; du*di+u 

2C0Sl«2DEC; Al-'fOXiOl t*0l»2;DS teFlUJDI l»A;0S t»U TV" )i 
OltwQIMI QSlMLlt" ■»>, .. 



50005000 
50006000 
50007000 



~9~\* 



.__?._.». 



SI» = SI + 6; SKIP 2 b(j; 50008000 

IF SB THEN CSJsLlT"l" ELSE 0S:=Lir"0"; SKIP SB; 50009000 

3(OS» = 3 RESET / 3C IF SB THS,\ „S;sSET ELS L D_: =RESET; S K IP SB))* 5_0 0J g 

si»»si+7; oii»di+5; ci: 3 ci+g; gq to upi7 "50011000 

if sc*"1 m then ds**3lit"idl" else 50012000 

QJ.»"PI + _1 5MJ.1X^0_ 



DU»DI + 3; SlisSI-9; SKIP 2 sh; 

IF SB THEN 0Sts3LIT M ABN" El3_ Dl:=Ul+i> SKIP Sb> *02b 
■BIil Dl*3; Q H'C l + Q t GQ I fl QP 2J 



IF SB THEN CS«53 LIT M RR " ELSE 
UP2I DHaOI + 3; 
_. SKIP SBJ DI I»PI+_. 



50014000 
50015000 

___lojj>j_qo. 



*D24 



50017000 

50018000 

_5___J_1_____ 



IF SB THEN CS:s3lIT"BFL" EL*E 0lS*DI+3; SKIP Sb; *D23 

onaoi + 3; 

SKIP SRj MfiMuRF W 

IF SB THEN DSts3LlT°WR " ELSE Dli*oi+3; SKIP SB; XD21 

DI«»Dl+3; 
If SB . THEN DS»g3LlT"BSY" ELSE DltsQl+3; SKI P SB; XD20 

DU=DI + 3; 

SKIP SB; X1GNGRE D19 

____Sfl_TJ_£!___lM___LlI^I_i__ ______ J_IX_.I1 1 ±.3J _JUiL 

EXIT: 

END FLL* 



50020000 

50021000 
-_oy?nn_ 

5 0023 000 
50024000 
50025000 

50026000 
50027000 
,5-00^8 000 
50029000 
50030000 

^_____i___c_ 



stream procedure sta t ( l inesta1 p |,i ne ) ; 
begin si:=linestat; di : =l ine; 

Dl :=oi+2; pS: = l_6 _chR; 
END STICK INC. ~ S T AT US " IN f OUfPU T~~F OR f "s S "i 

BO L E A N S T R E AM PR QC ED ORE. END QFBL OC K(A )±_ 

begin si i «a i if sc = " " then tally 1*1* 
endofblock»*tally; 

end endqfblqck; 



6G001000 

60002000 
6 00 3 00. Q 

60004000 
70000000 
70001000 



70002000 
70003000 
700 04000 



procedure statidncstaj; value sta; real sta; 
BEGIN _ _ 



80000000 
80001000 

_______)________ 



stream procedure putsta(sta»linej; value sta; 

BEGIN SI I»LOC STA J DI;*L1i._; 



2C8(0S:a3 RESET; 

3C IF SB THEN DS:*SET ELSE DS:=HESeT; SKIP SB)); 

_ _J_ St«LlT" ") ; ; 



81000000 
81001000 

a ioq _______ 



end; 

if stax o and type*4 then putsta(sta* l i n eclq])> 



81003000 
81004000 
81005000 



END OF STICKING STATION TABLE InTQ OUTPUT" FOR MCP; 



81006000 
82000000 
82001000 



%********* ************** 



END OF DECLARATIONS 



********************** 



82002000 

90000000 
*9Q0Qi00G 



initialize; 

IF WRAPAROUND THEN 

IF~INTSP[2J # U8I303~LSS STARTIM£ THEN WRAPAftUuND J 'FALSE EU$E 
BEGIN 08 READ(SEPTIC#60,lNTSP[*3)CWRAP3 UNTIL I _T5PC0 3. I 3 1 15 J-OJ 

GO TO reaonext; 



end; 
11 = 1; 

go to loop; 



90002000 
91000000 
91001000 
91002000 
91003000 
91004000 



WRAP!' . 

REWINDCSEPTIO* 

wraparound»»false; 



91005000 
91006000 
91007Q0Q 



91008000 
91009000 
910*0000 



• • 



Vr 



10 

I 11 

12 
13 
i 14 
15 
IB 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 ~ 
38 
39 
40 
41 
42 

«3 ." 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 



I»«l* 

IF FALSE THEN 

i£»MU _ 

I»«QJ 

REA0(SEPTIC#60»INTSP[ 
LOOP* 



*3)CE 

.1 



ofJ; 



_ J£ 

THEN 
BEGIN 

_______ 



INTSPC1] ).[3l 15 3=0 rHEiM 
INTSP.I+13 .[168 30] < STARTIME 



GO TD UATAEND* 



I»alNTSPCl 

%%%%%%%%% 

(NAMCTYPE* 



UIN E ) 

U MCINTSPCBUHPI 



21112], B.[ 

; %%%%%%% 



]tC33U5] + I + a-TMCP ELSL 

«8«C3»633»fl < C9t4],»8i CUU] 

24l9]=0'TYHEX4#TYPt LEG l>% 

t%*X%XX-»X**%XX*;UXX;U**%X.%X 
].[1BI303»CO ; %%%%%%%* %%%% 



IF OCMCP THEN ST AT ION C IflTSP Cf3UMP I ] ) ELSE XXX 
IF TYPE'4 THEN %%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
ST ATtL5TATr9XlN TS PCT].M2l613 »LTNrriQ]>; %% 



WHITE 
IF ( 

. Jiai 

end; 

IF I* 

.... IE. 



(P, 15, LINE 
B.» a B.C33»l 
ILilll ___. 



91011000 

9101200.0 

9_iO.lJ.QiLQ. 

91014000 

9101500Q 

._-__S__.Q.Q_LQ 

92001000 
92002000 

92004000 
92005000 

12M6000... 
92 007000 
92008000 

.___J__L9JD.Da. 
92010000 
92011000 

___2_U2GQG 



53) X THEN MMM(B); A**XX 

-A»--»^»«-»-»„X--a;%_-„ai t_ 



92013000 

92014000 

_9_efli-_Q_).Q.. 



XXXXXXXXXX 

59 THEN GO 

...__J_D._1F___L_1C. 

GO 



TO READNEXT ELSE XXXX 
KdNTSPCBUHPl.) T HFN 



TC 



HE 
G 



adnex 

TO 



T ELSt 

LOOP 



%%% 



DATAEND* 

READ<SEPTIC»60#INTSPC*])[E0F3; 
___...T_3.J_JDJJ 



EOFi 



92016000 
92017000 

__2_XL8j_JHL 

92019Q00 
92020000 
..9i.Q-_-tQ.0Q 
92022000 
92023000 
9 2Q __..___.-. 



IF WRAPAROUND THEN GO TO WRAP; 



EOJJ 



93000000 
93001000 
93002000 



WRITECP#TAN 
END. END. 

enu;end. 



KEND); 

LAST CARD ON OC ROlNti TAPE 



93003000 
99999990 
99999999 



ri 



8 ' 

9 

10 

11 I 

12 

13 

,4* 

15 

16 

17 < 

18 

19 

20 ' 

21 

22 

23 ' 

24 

25 

26 * 

27 

_l 

28 

29 i 

30 

31 

32 I 

33 

34 

35 < 

36 

37 

38 i 

39 

40 

4,< 

42 

43 

44 ' 

45 

46 

«1 

48 

49 
50 ' 

51 

52 

53 < 

54 

55 

56< 



• • 



> 



16 
17 
18 

; 9 

bo 

2, 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 

34 

I 

6 

7 
38 
39 
40 
41 
42 
43 
44 
46 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 

5. 



LABEL 0O00OO0C0PRIMEROO175099CC tX OB JEC I /READ; F I i_E SQUHCEF I LE=SYM60l/R0TU;END*U00000 



OBJECT /READ 



"n 

2 

3 
4 
5 
6 
7 
8 



49 
50 I 
51 
52 
53 ( 
54 
55 
56 i 
57 



• • 



LABEL 000000000PRIMER00175099CC EX QI3 JECT/RE AD; F" ILE SOURCEF ILEcPaT Ch/RQTU; END* 



OBJECT /READ 



ft 

; 

r 

5 
6 

7 

a 

9 
10 

ii 

12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
2.5 
26 
27 
28 
29 
30 
31 
32 

34 

35 

36 

37 " 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 



• • 



i: 

u 

i5 

'> 

''I 

I 8 

I 1 "" 

11 

12 

iisT 



** PATCH NUMBER 101 FOR ROTO C N T A 1 in i. CH CARDS. 

REAL int#pasint,actint; 

- - B.ULUL...$11=AL D I : * ti l D 1 8 8 n T 4 y a f __ 

STREAM PROCEDURE FLL ( A » B* C* D> E* F* G, J>H } ; VAlUE B»C# D#E#f7gTj;" 

- S|j = _yjc__j; _ _psi«3 LIT "ch ^L_HSi«i_ilL£i_. 



$j 

$$ 
$i 

si' 



8,C19«33,LINE); 
ACTINTI»ACTINT+ RE AL ( T Yl*E s 1 > ; 

.■■.PAS_lNTt»PASlN T_+ R£ AlCTYPE= Q) > _ 

INTl«INT*REALCTYPE»4)i ~ ~ 

WRITECP, ^INTERRUPTS * "#!«♦,/, "ACTIVE INT * «,I*W, 
----PASJ_I.yiL_mL.__L_-!_^^ 



BY RC 
6/15/74 

-IP. -i. *..».«. . 

THIS PATCH 



11U00100 
.2-aO.U2.QOC 
50001000 
50026050 
50026 1.0,Q 
92006000 
92008100 
-.9-2-008.1.1.0 

92008120 

93002500 
-iLa.QQ2fliO.0_. 



T* 



LISTS THE I/O CHANNELS USED, 



16; 

| I 7' 
|I8, 
is; 

ft : ' u ' 
|21, 

J22 

k 

\ 0> 

30 
31~ 

bi 
i — 

r, 

| osi 

36, 

P 7 f~ 

I t>8 

09 

40 
I 41 

42 

43 ~ 

44 

45 

:" 

48 
♦9 
50 
51 
52 
53 
54 
55 
56 



1*5140.4 J 



-»N0 MESSAGES THHAY 



39 

40 

4, ( 

42 

43 

44 { 

45 

46 

47 < 

48 

49 

50 i 

51 

52 

53 I 

54 

55 

56 1 



• • 



w^* 



LABEL OOOOOOO0OPRIMEK0C175099CC tX OBJEC T/REAU;F ILE bUUHCEF ILEsPATCH/RG TUi END* 



OBJECT /READ 



>r 



9 

10 

11 

12 

13 

14 

IS 

16 

17 

18 

19 

20 

21 

22 

23 

24 

2b 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 ~ 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

«8 

49 

50 

51 

52 

53 

54 

55 

56 



J? 



